home *** CD-ROM | disk | FTP | other *** search
/ Chip: 25 Years Anniversary / CHIP_25Jahre_Jubilaeum.iso / downloads / 388320 / MailWash.exe / {app} / MailWasher.exe / 0 / RCDATA / TWORLDPAYFORM / TWORLDPAYFORM.txt
Text File  |  2003-03-07  |  8KB  |  350 lines
  1. object WorldPayForm: TWorldPayForm
  2.   Left = 335
  3.   Top = 237
  4.   BorderIcons = [biSystemMenu]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Register'
  7.   ClientHeight = 423
  8.   ClientWidth = 584
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = False
  16.   Position = poMainFormCenter
  17.   OnCreate = FormCreate
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Label4: TLabel
  21.     Left = 16
  22.     Top = 24
  23.     Width = 553
  24.     Height = 33
  25.     AutoSize = False
  26.     Caption = 
  27.       'Registration costs whatever you feel is appropriate, and in grat' +
  28.       'itude of your support we will permanently remove the banner ads ' +
  29.       'from this program.'
  30.     WordWrap = True
  31.   end
  32.   object Label9: TLabel
  33.     Left = 16
  34.     Top = 8
  35.     Width = 341
  36.     Height = 13
  37.     Caption = 'You can have a registered version of MailWasher right now!'
  38.     Font.Charset = DEFAULT_CHARSET
  39.     Font.Color = clWindowText
  40.     Font.Height = -11
  41.     Font.Name = 'MS Sans Serif'
  42.     Font.Style = [fsBold]
  43.     ParentFont = False
  44.   end
  45.   object CancelButton: TButton
  46.     Left = 408
  47.     Top = 384
  48.     Width = 75
  49.     Height = 25
  50.     Cancel = True
  51.     Caption = 'Cancel'
  52.     TabOrder = 0
  53.     OnClick = CancelButtonClick
  54.   end
  55.   object GroupBox1: TGroupBox
  56.     Left = 16
  57.     Top = 56
  58.     Width = 553
  59.     Height = 129
  60.     Caption = ' Step 1: Get a registration key '
  61.     Font.Charset = DEFAULT_CHARSET
  62.     Font.Color = clBlack
  63.     Font.Height = -11
  64.     Font.Name = 'MS Sans Serif'
  65.     Font.Style = [fsBold]
  66.     ParentFont = False
  67.     TabOrder = 2
  68.     object Label2: TLabel
  69.       Left = 144
  70.       Top = 24
  71.       Width = 59
  72.       Height = 13
  73.       Caption = 'Or choose'
  74.       Font.Charset = DEFAULT_CHARSET
  75.       Font.Color = clWhite
  76.       Font.Height = -11
  77.       Font.Name = 'MS Sans Serif'
  78.       Font.Style = [fsBold]
  79.       ParentFont = False
  80.     end
  81.     object Label7: TLabel
  82.       Left = 144
  83.       Top = 100
  84.       Width = 402
  85.       Height = 13
  86.       Caption = 
  87.         'If you have already paid you can have a registration key automat' +
  88.         'ically emailed to you.'
  89.       Font.Charset = DEFAULT_CHARSET
  90.       Font.Color = clBlack
  91.       Font.Height = -11
  92.       Font.Name = 'MS Sans Serif'
  93.       Font.Style = []
  94.       ParentFont = False
  95.     end
  96.     object Label3: TLabel
  97.       Left = 144
  98.       Top = 38
  99.       Width = 205
  100.       Height = 13
  101.       Caption = '(Your credit card details will be kept secure)'
  102.       Font.Charset = DEFAULT_CHARSET
  103.       Font.Color = clWindowText
  104.       Font.Height = -11
  105.       Font.Name = 'MS Sans Serif'
  106.       Font.Style = []
  107.       ParentFont = False
  108.     end
  109.     object CurrencyLabel: TLabel
  110.       Left = 432
  111.       Top = 24
  112.       Width = 35
  113.       Height = 13
  114.       Caption = '(USD?)'
  115.       Font.Charset = DEFAULT_CHARSET
  116.       Font.Color = clWindowText
  117.       Font.Height = -11
  118.       Font.Name = 'MS Sans Serif'
  119.       Font.Style = []
  120.       ParentFont = False
  121.     end
  122.     object Label5: TLabel
  123.       Left = 206
  124.       Top = 24
  125.       Width = 170
  126.       Height = 13
  127.       Caption = 'an amount more suitable for your tip:'
  128.       Font.Charset = DEFAULT_CHARSET
  129.       Font.Color = clWindowText
  130.       Font.Height = -11
  131.       Font.Name = 'MS Sans Serif'
  132.       Font.Style = []
  133.       ParentFont = False
  134.     end
  135.     object Label6: TLabel
  136.       Left = 144
  137.       Top = 60
  138.       Width = 176
  139.       Height = 13
  140.       Caption = 'Print and complete the form provided.'
  141.       Font.Charset = DEFAULT_CHARSET
  142.       Font.Color = clBlack
  143.       Font.Height = -11
  144.       Font.Name = 'MS Sans Serif'
  145.       Font.Style = []
  146.       ParentFont = False
  147.     end
  148.     object WorldPayButton: TButton
  149.       Left = 16
  150.       Top = 24
  151.       Width = 121
  152.       Height = 25
  153.       Caption = 'Pay by Credit Card'
  154.       Font.Charset = DEFAULT_CHARSET
  155.       Font.Color = clWindowText
  156.       Font.Height = -11
  157.       Font.Name = 'MS Sans Serif'
  158.       Font.Style = []
  159.       ParentFont = False
  160.       TabOrder = 0
  161.       OnClick = WorldPayButtonClick
  162.     end
  163.     object EmailButton: TButton
  164.       Left = 16
  165.       Top = 96
  166.       Width = 121
  167.       Height = 25
  168.       Caption = 'I have already paid'
  169.       Font.Charset = DEFAULT_CHARSET
  170.       Font.Color = clWindowText
  171.       Font.Height = -11
  172.       Font.Name = 'MS Sans Serif'
  173.       Font.Style = []
  174.       ParentFont = False
  175.       TabOrder = 3
  176.       OnClick = EmailButtonClick
  177.     end
  178.     object AmountBox: TComboBox
  179.       Left = 380
  180.       Top = 24
  181.       Width = 49
  182.       Height = 21
  183.       Style = csDropDownList
  184.       Font.Charset = DEFAULT_CHARSET
  185.       Font.Color = clWindowText
  186.       Font.Height = -11
  187.       Font.Name = 'MS Sans Serif'
  188.       Font.Style = []
  189.       ItemHeight = 13
  190.       ParentFont = False
  191.       TabOrder = 1
  192.       OnChange = AmountBoxChange
  193.       Items.Strings = (
  194.         '$3'
  195.         '$4'
  196.         '$5'
  197.         '$8'
  198.         '$10'
  199.         '$15'
  200.         '$20'
  201.         '$25'
  202.         '$30'
  203.         '$35'
  204.         '$40'
  205.         '$45'
  206.         '$50'
  207.         '$60'
  208.         '$70'
  209.         '$85'
  210.         '$100')
  211.     end
  212.     object PayByPostButton: TButton
  213.       Left = 16
  214.       Top = 56
  215.       Width = 121
  216.       Height = 25
  217.       Caption = 'Pay by post'
  218.       Font.Charset = DEFAULT_CHARSET
  219.       Font.Color = clBlack
  220.       Font.Height = -11
  221.       Font.Name = 'MS Sans Serif'
  222.       Font.Style = []
  223.       ParentFont = False
  224.       TabOrder = 2
  225.       OnClick = PayByPostButtonClick
  226.     end
  227.   end
  228.   object GroupBox2: TGroupBox
  229.     Left = 16
  230.     Top = 192
  231.     Width = 553
  232.     Height = 161
  233.     Caption = ' Step 2: Enter in your registration key'
  234.     Font.Charset = DEFAULT_CHARSET
  235.     Font.Color = clWindowText
  236.     Font.Height = -11
  237.     Font.Name = 'MS Sans Serif'
  238.     Font.Style = [fsBold]
  239.     ParentFont = False
  240.     TabOrder = 3
  241.     object Label1: TLabel
  242.       Left = 16
  243.       Top = 26
  244.       Width = 334
  245.       Height = 13
  246.       Caption = 
  247.         'Paste your registration key into the box and click the "Register' +
  248.         '" button.'
  249.       DragMode = dmAutomatic
  250.       FocusControl = CancelButton
  251.       Font.Charset = DEFAULT_CHARSET
  252.       Font.Color = clWindowText
  253.       Font.Height = -11
  254.       Font.Name = 'MS Sans Serif'
  255.       Font.Style = []
  256.       ParentFont = False
  257.     end
  258.     object KeyMemo: TMemo
  259.       Left = 16
  260.       Top = 48
  261.       Width = 521
  262.       Height = 65
  263.       Font.Charset = DEFAULT_CHARSET
  264.       Font.Color = clWindowText
  265.       Font.Height = -11
  266.       Font.Name = 'MS Sans Serif'
  267.       Font.Style = []
  268.       ParentFont = False
  269.       ScrollBars = ssVertical
  270.       TabOrder = 0
  271.       OnChange = KeyMemoChange
  272.     end
  273.     object RegisterButton: TButton
  274.       Left = 462
  275.       Top = 120
  276.       Width = 75
  277.       Height = 25
  278.       Caption = 'Register'
  279.       Default = True
  280.       Enabled = False
  281.       Font.Charset = DEFAULT_CHARSET
  282.       Font.Color = clWindowText
  283.       Font.Height = -11
  284.       Font.Name = 'MS Sans Serif'
  285.       Font.Style = []
  286.       ParentFont = False
  287.       TabOrder = 2
  288.       OnClick = RegisterButtonClick
  289.     end
  290.     object PasteButton: TButton
  291.       Left = 16
  292.       Top = 120
  293.       Width = 115
  294.       Height = 25
  295.       Caption = 'Paste from clipboard'
  296.       Font.Charset = DEFAULT_CHARSET
  297.       Font.Color = clWindowText
  298.       Font.Height = -11
  299.       Font.Name = 'MS Sans Serif'
  300.       Font.Style = []
  301.       ParentFont = False
  302.       TabOrder = 1
  303.       OnClick = PasteButtonClick
  304.     end
  305.   end
  306.   object Panel1: TPanel
  307.     Left = 16
  308.     Top = 368
  309.     Width = 553
  310.     Height = 3
  311.     BevelOuter = bvLowered
  312.     TabOrder = 5
  313.   end
  314.   object TestGroupBox: TGroupBox
  315.     Left = 16
  316.     Top = 344
  317.     Width = 281
  318.     Height = 57
  319.     Caption = 'Test Worldpay payment system'
  320.     TabOrder = 4
  321.     object TestPositiveButton: TButton
  322.       Left = 8
  323.       Top = 24
  324.       Width = 129
  325.       Height = 25
  326.       Caption = 'Successful transaction'
  327.       TabOrder = 0
  328.       OnClick = TestPositiveButtonClick
  329.     end
  330.     object TestNegativeButton: TButton
  331.       Left = 144
  332.       Top = 24
  333.       Width = 129
  334.       Height = 25
  335.       Caption = 'Failed Transaction'
  336.       TabOrder = 1
  337.       OnClick = TestNegativeButtonClick
  338.     end
  339.   end
  340.   object HelpButton: TButton
  341.     Left = 496
  342.     Top = 384
  343.     Width = 75
  344.     Height = 25
  345.     Caption = 'Help'
  346.     TabOrder = 1
  347.     OnClick = HelpButtonClick
  348.   end
  349. end
  350.